home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / arexx / cg / randomattrib.rexx < prev    next >
OS/2 REXX Batch file  |  1995-12-28  |  999b  |  35 lines
  1. /* RandomAttrib.rexx -- An Attribute Setter   */
  2. /* By Bob Caron User ©1994 NewTek, Inc.       */
  3.  
  4. call random(,,time('s'))
  5. call addlib(CG_AREXX,0)
  6.  
  7. alpha=REQ_ASK("Randomize Alpha?")
  8.  
  9. if alpha=0 then alpha=255
  10.    else alpha=1
  11.  
  12. CALL SET_CHAR(RGBA,random(0,255),random(0,255),random(0,255),random(alpha,255))
  13. CALL SET_CHAR(FILL,'0')
  14. if random(0,1) = 1 then do
  15.    CALL SET_CHAR(FILL,'1')
  16.    CALL SET_CHAR(BOTR,random(0,255),random(0,255),random(0,255),random(alpha,255))
  17.    end
  18.  
  19. CALL SET_BORD(TOPR,random(0,255),random(0,255),random(0,255),random(alpha,255))
  20. CALL SET_BORD(FILL,'0')
  21. if random(0,1) = 1 then do
  22.    CALL SET_BORD(FILL,'1')
  23.    CALL SET_BORD(BOTR,random(0,255),random(0,255),random(0,255),random(alpha,255))
  24.    end
  25.  
  26. CALL SET_BORD(SIZE,random(0,3))
  27. CALL SET_BORD(PRIO,random(0,1))
  28.  
  29. CALL SET_SHAD(TYPE,random(0,2))
  30. CALL SET_SHAD(SPOT,random(0,7))
  31. CALL SET_SHAD(PRIO,random(0,1))
  32. CALL SET_SHAD(SIZE,random(1,5))
  33.  
  34. CALL SET_SHAD(TOPR,random(0,255),random(0,255),random(0,255),random(alpha,255))
  35.